home *** CD-ROM | disk | FTP | other *** search
/ Softwarová Záchrana 3 / Softwarova-zachrana-3.bin / Xteq X-Setup / xqdcXSP-Setup-EN.exe / {app} / plugins / XQ IE URL Types.xpl < prev    next >
Text File  |  2003-11-20  |  2KB  |  67 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 5.0"
  2. "TYPE"="8"
  3. "COUNT"="2"
  4. "UIPATH 1"="Internet\Internet Explorer\URL Handling"
  5. "UIPATH 2"="Internet\Internet Explorer\Address Bar"
  6. "NAME"="URL Protocol Prefixes List"
  7. "VERSION"="1.03"
  8. "LANGUAGE"="VBScript"
  9. "TEXT 1"="Add..."
  10. "TEXT 2"="Delete..."
  11. "DESCRIPTION 1"="When you type just a domain name in the address bar of Internet Explorer, it will try to determine which protocol it should use. 
  12. "DESCRIPTION 2"="For example, you maybe just enter www.x-setup.net although the correct URL would be http://www.x-setup.net. Internet Explorer compares the typed domain name with this list and will automatically append the protocol in front of the entered domain name if it finds a match.
  13. "DESCRIPTION 3"="In this example, the first part of the domain name was www. Internet Explorer will go through the list and see if a protocol for www. is configured. It finds one (http://) so it simply adds it. 
  14. "AUTHOR"="Xteq Systems (CptSiskoX and Neil R. Turner)"
  15. "CONTACTURL"="http://www.xteq.com"
  16. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  17. "COMMENT 1"="Found during registry exploration of WinXP. "
  18.  
  19. sPath="HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\URL\Prefixes\" ' extra '\' added here
  20.  
  21. Sub Plugin_Initialize 
  22.  if RegPathExists(sPath) then
  23.   iCount=RegEnumValues(sPath) 
  24.   For p=1 to iCount
  25.    s=RegEnumElement(p)
  26.    t=RegReadValue(sPath & s)
  27.    Call SetUIElement(p,s & " - " & t)
  28.   Next
  29.  else
  30.   Call Disable()
  31.  end if
  32. End Sub
  33.  
  34. Sub Plugin_CheckData(ElementIndex)
  35. End Sub
  36.  
  37. Sub Plugin_Apply(ElementIndex,ElementSubIndex)
  38.  if ElementIndex=1 then
  39.   t=InputWindow("1. Enter the text you would like to customize (eg 'www')","",1)
  40.   if IsEmpty(t)=false then
  41.    u=InputWindow("2. Enter te prefix that should be used (eg 'http://')","",1)
  42.    if IsEmpty(t)=false then
  43.     Call RegWriteValue(sPath & t,u,1)
  44.     Call SetUIElement(500, t & " - " & u)
  45.    end if
  46.   end if
  47.  end if
  48.  
  49.  if ElementIndex=2 then
  50.   if ElementSubIndex<0 then
  51.    Call MsgError("Please select an item to delete first!")
  52.   else
  53.    iCount=RegEnumValues(sPath) 
  54.    For p=1 to iCount
  55.     If p=ElementSubIndex then
  56.      s=RegEnumElement(p)
  57.      Call RegDeleteValue(sPath & s)
  58.      Call SetUIElement(p,"")
  59.     end if
  60.    Next
  61.   end if
  62.  end if
  63. End Sub
  64.  
  65. Sub Plugin_Terminate 
  66. End Sub
  67.